home *** CD-ROM | disk | FTP | other *** search
/ Aminet 28 / Aminet 28 (1998)(GTI - Schatztruhe)[!][Dec 1998].iso / Aminet / dev / gui / gui4cli.lha / Gui4Cli / Demo.gc next >
Text File  |  1998-10-22  |  3KB  |  114 lines
  1. G4C
  2.  
  3. ; Demo.gc
  4. ; a simple gui to launch stuff..
  5.  
  6. WINBIG -1 -1 310 164 Demo.gc
  7. WinType 11110001
  8. ShareMenu gcmenu.g   ; share menus with this gui
  9.  
  10. xOnLoad
  11. ifexists assign guis:
  12.    ; ok
  13. else
  14.    extract demo.gc guipath g4cpath
  15.    assign guis: $g4cpath
  16.    cli 'c:path guis:c add'
  17. endif
  18. guiload guis:tools/gcmenu.g  ; load the gui with the menus
  19. GuiOpen Demo.gc
  20.  
  21. xOnClose
  22. guiclose demo.gc
  23. setgad demo.gc 20 ON
  24.  
  25. xAppIcon -1 -1 :Gui4Cli 'G4C Demo' '' OFF
  26. gadid 20
  27. guiopen demo.gc
  28. setgad demo.gc 20 OFF
  29.  
  30. ; xOnRMB
  31. ; Status
  32.  
  33. BOX 0 0 0 0 out button
  34. ICON 219 9 :gui4cli
  35. CTEXT 15 9 "Might as well.." #screen 8 2 0 "0011"
  36.  
  37. TEXT 12 24 195 15 "Read the ReadMe" 40 BOX
  38. gadid 1
  39. XBUTTON 210 24 91 15 "ReadMe"
  40. update demo.gc 1 Loading...
  41. *FILENAME = guis:readme.now
  42. guiload guis:tools/read.gc
  43. Update demo.gc 1 'Read the ReadMe'
  44.  
  45. TEXT 12 39 195 15 "Read the Guide" 40 BOX
  46. gadid 2
  47. XBUTTON 210 39 91 15 "Guide"
  48. update demo.gc 2 Loading...
  49. run 'multiview guis:docs/Gui4Cli.guide'
  50. update demo.gc 2 'Read the Guide'
  51.  
  52. TEXT 12 54 195 15 "Run the File Manager" 40 BOX
  53. gadid 3
  54. XBUTTON 210 54 91 15 "Dir.gc"
  55. update demo.gc 3 Loading...
  56. guiload guis:dir/dir.gc
  57. update demo.gc 3 'Run the File Manager'
  58.  
  59. TEXT 12 69 195 15 "Search for Files" 40 BOX
  60. gadid 21
  61. XBUTTON 210 69 91 15 "FSearch.gc"
  62. update demo.gc 21 Loading...
  63. guiload guis:g4c/fsearch/fsearch.gc
  64. update demo.gc 21 'Search for Files'
  65.  
  66. TEXT 12 84 195 15 "Replace text in files" 40 BOX
  67. gadid 22
  68. XBUTTON 210 84 91 15 "Rep.gc"
  69. update demo.gc 22 Loading...
  70. guiload guis:g4c/rep.gc
  71. update demo.gc 22 'Replace text in files'
  72.  
  73. TEXT 12 99 195 15 "Read a Guide fast" 40 BOX
  74. gadid 6
  75. XBUTTON 210 99 91 15 "FastRead"
  76. update demo.gc 6 Loading...
  77. guiload guis:tools/fastread/fastread.gc
  78. update demo.gc 6 'Read a Guide fast'
  79.  
  80. TEXT 12 114 195 15 "Change the Palette" 40 BOX
  81. gadid 5
  82. XBUTTON 210 114 91 15 "Palette"
  83. update demo.gc 5 Loading...
  84. guiload guis:tools/palette.gc
  85. update demo.gc 5 'Change the Palette'
  86.  
  87. TEXT 12 129 195 15 "Look at the Tutorials" 40 BOX
  88. gadid 4
  89. XBUTTON 210 129 91 15 "Tutorials"
  90. update demo.gc 4 Loading...
  91. guiload guis:docs/tutorials.gc
  92. update demo.gc 4 'Look at the Tutorials'
  93.  
  94. TEXT 12 144 195 15 "Make a Gui.." 40 BOX
  95. gadid 7
  96.  
  97. XBUTTON 210 144 91 15 "GuiEdit"
  98. update demo.gc 7 Loading...
  99. guiname = ''
  100. ReqFile -1 -1 300 200 "Enter GUI Name:" LOAD guiname 'ram:'
  101. if $guiname > ''
  102.    ifexists file $guiname    ; chose existing gui
  103.        ;
  104.    else
  105.        extract guiname file name
  106.        .dummy = 'G4C\n\nWinBig -1 -1 200 100 $name\nWinType 11110001\n\nxOnLoad\nGuiOpen $name\n\nxOnClose\nGuiQuit $name\n\n'
  107.        copy env:.dummy $guiname
  108.    endif
  109.    guiload guis:tools/guiedit.gc
  110.    guiload $guiname
  111. endif
  112. update demo.gc 7 'Make a Gui..'
  113.  
  114.